home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / baker's dozen 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  245b  |  8 lines
  1. 10 printchr$(147)chr$(5):poke53280,0:poke53281,0
  2. 20 r=54272:a=1
  3. 30 n=int(10*rnd(1))+1:p=int(10*rnd(1))+1:q=int(15*rnd(1))+1
  4. 40 v=int(1000*rnd(1))+1024
  5. 50 ifv+n>2023thenv=v-n:goto20
  6. 60 ifv+(40*p)>2023thenv=v-(40*p):goto20
  7. 70 forz=1top:forx=1ton:pokev+a,160:pokev+a+r,q:v=v+a:next:v=v+40-n:nextz:goto30
  8.